C
      LOGICAL THRSTA, SKIP
C
      COMMON / CHORST / THRSTR, THRSTA, SKIP

